PA_8255 EQU 0270H
PB_8255 EQU 0271H
PC_8255 EQU 0272H
MODE_8255 EQU 0273H
_STACK SEGMENT  STACK
  DW  64  DUP(?)
_STACK  ENDS

CODE  SEGMENT
  ASSUME CS:CODE,SS: _STACK
START:  MOV  DX,MODE_8255  ;接口地址超8位，先送至dx
        MOV  AL,82H   ;方式0，端口B输入，端口A、C输出
        OUT  DX,AL  ;写控制字
A1:     MOV  DX,PB_8255   ;接口地址送到dx
        IN   AL,DX  ;读输入口开关
        MOV  DX,PA_8255   ;接口地址送到dx
        OUT  DX,AL  ;写输出口控制二极管
        JMP  A1
CODE  ENDS
    END START